home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / telecomm / bbsxdemo.lzh / MENUS_80 / F8.SCR < prev    next >
Text File  |  1993-02-28  |  4KB  |  153 lines
  1. SCRIPT
  2. DEFINE User_input
  3. DEFINE Start_time
  4. DEFINE Count
  5.  
  6. SET Start_time = &34
  7.  
  8. PRINTE
  9.  
  10. DUMP
  11.     =========================================================================
  12.     You may be wondering about the Function Keys and what they can do for
  13.     you.  BBS Express! ST which we will refer to from now on as Express
  14.     allows you to define the F6, F7, F8 and F9 keys to run Script Files, or
  15.     Menu files.  This DEMO has been set up with the Function Keys F6, F7 and
  16.     F8 set up as:
  17.  
  18.             Order Entry Utilities
  19.             Other Utilities
  20.             These Function Keys?
  21.  
  22.     The definitions may be seen in the file "FUNCTION.DAT".  The F6 key
  23.     executes the file named F6.COM in the path D:\BBSXDEMO\MENUS_80\.  It is
  24.     written in the Express Script Language and then compiled.  The original
  25.     Source file is named ORDUTIL.SCR and is located in D:\BBSXDEMO\OE\.  Also
  26.     a related file OE.SCR is the Source file of OE.COM, which you execute
  27.     from the Main Menu from the "[D]  Demo of our Ordering System" command.
  28.  
  29.     =========================================================================
  30. END
  31.  
  32. GOSUB Get_input
  33.  
  34. DUMP
  35.     =========================================================================
  36.     Well, we got off the subject a bit.  The F7 key runs a Script file which
  37.     in turn allows you to set some parameters and run some External Programs.
  38.     These External programs are commonly called "Doors", they can be a vast
  39.     variety of files.  Look over the file F7.SCR located in the path
  40.     D:\BBSXDEMO\MENUS_80\.  It is another example of a Script Language file.
  41.     In this case it is not compiled for your viewing ease.  Compiling Script
  42.     files makes them smaller and run faster.  It also allows you to create
  43.     larger Scripts.
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.     =========================================================================
  54. END
  55.  
  56. GOSUB Get_input
  57.  
  58. DUMP
  59.     =========================================================================
  60.     The F8 key runs the Script file which is doing this demo.  There are a
  61.     variety of methods to show users information...  This Demo is file
  62.     F8.SCR also located in what is refered to as the MENUS_80 folder.
  63.  
  64.     Go to the next page to see a small example of Script...
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.     =========================================================================
  78. END
  79.  
  80. GOSUB Get_input
  81.  
  82.  
  83. PRINT '    '
  84. FOR Count = 1 to 73
  85.    PRINT '='
  86. ENDFOR
  87.  
  88. PRINTE
  89. PRINTE
  90. PRINTE
  91. PRINTE
  92. PRINTE '    You began reading this at [Start_time] and it is now &34 hours,'
  93. PRINTE '    (or if you prefer 12 hour time, &23)'.
  94. PRINTE
  95. PRINTE
  96.  
  97. DEFINE The_string
  98. DEFINE Character_to_print
  99. DEFINE Character_number
  100.  
  101. PRINT '    '
  102.  
  103. SET The_string = 'Express is VERY powerful...'
  104.  
  105. Character_number = 1
  106.  
  107. String_it_out_:
  108. Character_to_print = COPY (The_string, Character_number, 1)
  109.  
  110. IF Character_number > 27 THEN
  111.    GOTO End_this_
  112. ENDIF
  113.  
  114. PRINT Character_to_print
  115. GOSUB Delay
  116. BACKSPACE (1)
  117. GOSUB Delay
  118. PRINT ' '
  119. GOSUB Delay
  120. BACKSPACE (1)
  121. GOSUB Delay
  122. PRINT Character_to_print
  123. INCREASE Character_number (1)
  124. GOTO String_it_out_:
  125. End_this_:
  126.  
  127. FOR Count = 1 to 10
  128.    PRINTE
  129. ENDFOR
  130.  
  131. PRINT '    '
  132. FOR Count = 1 to 73
  133.    PRINT '='
  134. ENDFOR
  135.  
  136. PRINTE 'The End...  Press any key to Exit' CENTER
  137. GET_KEY User_input
  138.  
  139. EXIT
  140.  
  141. Get_input:
  142.    PRINTE 'Continue Y/n' CENTER
  143.    GET_KEY User_input
  144.    If User_input = N
  145.       EXIT
  146.    ENDIF
  147.    RETURN
  148.  
  149. Delay:
  150. FOR Count = 1 to 2
  151. ENDFOR
  152. RETURN
  153.